BWSPOOL "<START>"

Dim objExcel,ObjWorkbook,objSheet
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\webaccess\txt\vbsql.xlsx")


Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)


SQLDIRECT "CONNECT SESSION 2 TO bwpdata_Access"
SQLDIRECT "USE SESSION 2"
SQLPREPARE "DECLARE C2 CURSOR FOR"
SQLPREPARE "SELECT TOP 100 * FROM myVBTABLE"
SQLEXECUTE
BWSPOOL "<MIDDLE>"
SQLDIRECT "OPEN C2"

Dim i
For i = 0 To 99 Step 1
'BWSPOOL i
SQLDIRECT "FETCH NEXT C2 INTO array1("&i&"), array2("&i&"), array3("&i&"), array4("&i&")"
'BWSPOOL "FETCH NEXT C2 INTO array1("&i&"), array2("&i&"), array3("&i&"), array4("&i&")"
Dim j
j = i + 1
BWSPOOL j
objSheet.Cells(j, 1).Value = GETVAL("array1("&i&")")
objSheet.Cells(j, 2).Value = GETVAL("array2("&i&")")
objSheet.Cells(j, 3).Value = GETVAL("array3("&i&")")
objSheet.Cells(j, 4).Value = GETVAL("array4("&i&")")

Next


BWSPOOL "<before close>"
SQLDIRECT "CLOSE C2"


objExcel.DisplayAlerts = False
objWorkbook.SaveAs "C:\webaccess\txt\vbsql.xlsx"
'close Excel
objExcel.ActiveWorkbook.Close
objExcel.Workbook.Close
objExcel.Application.Quit
Set objExcel = Nothing

BWSPOOL "<end>"
